Program to make BDC for FIO1 Transaction 


REPORT ZDEMO BDC FOR ҒІ01. 


TYPES : BEGIN OF TY_BNKA, 
BANKS TYPE BANKS, 
BANKL TYPE BANKK, 
BANKA TYPE BANKA, 
PROVZ TYPE REGIO, 
STRAS TYPE STRAS GP, 
ORTO1 ТУРЕ ORTO1 GP, 
END OF TY BNKA. 


DATA : IT BDCDATA TYPE TABLE OF BDCDATA, 
ITAB TYPE TABLE OF TY BNKA, 
WA BDCDATA TYPE BDCDATA, 
WA TYPE TY BNKA. 


CALL FUNCTION 'GUI UPLOAD' 


EXPORTING 

FILENAME = 'D:\data\fi0l.txt' 
HAS FIELD SEPARATOR = 'T' 
TABLES 


DATA_TAB = ITAB 


LOOP AT ITAB INTO WA. 

PERFORM ВОС SCREEN PROGRAM USING 'SAPMFO2B' '0100'. 
PERFORM BDC FNAME FVAL USING 'BNKA-BANKS' WA-BANKS. 
PERFORM BDC FNAME FVAL USING 'BNKA-BANKL' WA-BANKL. 
PERFORM ВРС FNAME FVAL USING 'BDC OKCODE' '/00'. 


PERFORM ВОС SCREEN PROGRAM USING 'SAPMFO2B' '0110'. 
PERFORM BDC FNAME FVAL USING 'ВМКА-ВАМКА' WA-BANKA. 
PERFORM BDC FNAME FVAL USING 'BNKA-PROVZ' WA-PROVZ. 
PERFORM BDC FNAME FVAL USING 'BNKA-STRAS' WA-STRAS. 
PERFORM ВРС FNAME FVAL USING 'BNKA-ORTO1' WA-ORTO1. 


PERFORM ВОС FNAME FVAL USING 'BDC OKCODE' '=UPDA'. 


CALL TRANSACTION 'FIO1' USING IT BDCDATA MODE 'А'. 
REFRESH IT BDCDATA. 


ENDLOOP. 

INCLUDE ZDEMO BDC FOR ҒІ01 INCLUDE. 

22 — ————————— ———— PH€ * 
*& Include ZDEMO ВРС FOR ҒІ01 INCLUDE 

o PEOR C VERE * 


FORM BDC SCREEN PROGRAM USING FP PROG TYPE C FP DYNPRO TY 
РЕ С. 

CLEAR WA_BDCDATA. 

WA_BDCDATA-PROGRAM = FP_PROG. 

WA_BDCDATA-DYNPRO = FP_DYNPRO. 

WA BDCDATA-DYNBEGIN = 'Х'. 

APPEND WA BDCDATA TO IT BDCDATA. 
ENDFORM. 


FORM BDC FNAME FVAL USING FP FNAM TYPE C FP FVAL TYPE C. 
CLEAR WA BDCDATA. 

WA BDCDATA-FNAM = FP FNAM. 

WA BDCDATA-FVAL = FP FVAL. 

APPEND WA BDCDATA TO IT BDCDATA. 

ENDFORM. 


Dictionary: Display Structure 


+ => % % 83 T d ur = БЕЙ т | Hierarchy Display Append Structure 
Structure BDCDATA Active 
Short Description Batch input: New table field structure 


Attributes 2 Components | | Entry helpicheck I Currencylquantity fields 


Component В... Componenttype Data Type Len... Deci. Short Description 
PROGRAM | 7) BDC PROG CHAR 40 8 BDC module pool 
DYNPRO | ВОС DYNR NUMC 4 ОВОС Screen number 
DYNBEGIN _| ВОС START CHAR 1 8 BDC screen start 
ENAM О] ENAM 4 CHAR 132 Ө Field name 
FVAL _| ВОС FVAL CHAR eps 8 BDC field value 


Collecting error messages when mode is “М” 
(no screen in call transaction) 


REPORT ZDEMO ВРС FOR ҒІ01 01. 


TYPES : BEGIN OF TY BNKA, 
BANKS TYPE BANKS, 
BANKL TYPE BANKK, 
BANKA TYPE BANKA, 
PROVZ TYPE REGIO, 
STRAS TYPE STRAS GP, 
ORTO1 ТУРЕ ORTOI1 GP, 
END OF TY BNKA. 


DATA : IT BDCDATA TYPE TABLE OF BDCDATA, 
ITAB TYPE TABLE OF TY BNKA, 
WA BDCDATA TYPE BDCDATA, 
WA TYPE TY BNKA, 


it_bdcmsgcoll type table of bdcmsgcoll, 
wa_bdcmsgcoll type bdcmsgcoll. 


CALL FUNCTION 'GUI UPLOAD' 


EXPORTING 

FILENAME = 'D:\data\fi0l.txt' 
HAS FIELD SEPARATOR = 'T' 
TABLES 


DATA_TAB = ITAB 


LOOP AT ITAB INTO WA. 

PERFORM ВОС SCREEN PROGRAM USING 'SAPMFO2B' '0100'. 
PERFORM BDC_FNAME_FVAL USING 'BNKA-BANKS' WA-BANKS. 
PERFORM ВРС FNAME FVAL USING 'BNKA-BANKL' WA-BANKL. 
PERFORM BDC FNAME FVAL USING 'BDC OKCODE' '/00'. 


PERFORM ВОС SCREEN PROGRAM USING 'SAPMFO2B' '0110'. 
PERFORM BDC FNAME FVAL USING 'BNKA-BANKA' WA-BANKA. 
PERFORM BDC FNAME FVAL USING 'BNKA-PROVZ' WA-PROVZ. 
PERFORM BDC FNAME FVAL USING 'BNKA-STRAS' WA-STRAS. 
PERFORM ВОС FNAME FVAL USING 'BNKA-ORTO1' WA-ORTO1. 
PERFORM ВРС FNAME FVAL USING 'BDC OKCODE' '=UPDA'. 


CALL TRANSACTION 'FIO1' USING IT BDCDATA MODE 'N' MESSAGES INT 
О it bdcmsgcoll. 

REFRESH IT BDCDATA. 

ENDLOOP. 

data v msgtxt1 type string. 

LOOP AT it bdcmsgcoll into wa bdcmsgcoll. 


*** message id wa bdcmsgcoll-msgia " It will use BFOO msg class to d 
isplay messages 


к type wa bdcmsgcoll-msgtyp 
а number wa_bdcmsgcoll-msgnr 
е with wa_bdcmsgcoll-msgv1 
PUT wa bdcmsgcoll-msgv2 

кек wa_bdcmsgcoll-msgv3 


жож wa_bdcmsgcoll-msgv4 


**** into v msgtxt. 
жжжж 


ИЖЖЖЖЖЖЖх сур ЖЖжЖжЖжжжжж 


CALL FUNCTION 'FORMAT_MESSAGE' 


EXPORTING 
ID = wa_bdcmsgcoll-msgID 
LANG = wa_bdcmsgcoll-MSGSPRA 
NO = wa_bdcmsgcoll-msgNR 
V1 — wa bdcmsgcoll-msgv1 
V2 — wa bdcmsgcoll-msgv2 
V3 — wa bdcmsgcoll-msgv3 
V4 = wa bdcmsgcoll-msgv4 
IMPORTING 
MSG = v msgtxt1l. 


write :/ v msgtxt1 . 
ENDLOOP. 


INCLUDE ZDEMO ВОС FOR #01 INCLUDE. 


Dict опа 


er 93 


d! y. 1715 1А 


9 du | d ав H Hierarchy Display Append Structure... 
Structure BDCHSGCOLL | Active 
Short Description (Collecting messages іп the SAP System | 


A 


77 


Entry helpicheck | 


Predefined Type 


| В... Component type 


0009000000000 


TCODE 


BDC 


MODULE 


BDC 


DYNNR 

MART 

SPRAS 
BDC 


BDC 
BDC 
BDC 


MID 


BDC 


BDC 


ЧТЕХТ1 
ЧТЕХТ1 
ЧТЕХТ1 
ЧТЕХТ1 


BDC 
BDC 
BDC 


MNR 


BDC 


FNAM 


AKT 
4 


Currency/quantityfields | 


ІЗ 


| рав Туре | Len... Deci. ShortDescription 


CHAR 
CHAR 
CHAR 
CHAR 
LANG 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


20 
40 


8BDC Transaction code 

8 Batch input module name 

B Batch input screen number 

B Batch input message type 

B Language ID of a message 

8 Batch input message ID 

B Batch input message number 
B Variable part of a message 

B Variable part of a message 

B Variable part of a message 

B Variable part of a message 

B Batch input monitoring activity 
B Field name 


REPORT ZDEMO ВОС FOR ҒІ01 02. 


TYPES : BEGIN OF TY BNKA, 
BANKS TYPE BANKS, 
BANKL TYPE BANKK, 
BANKA TYPE BANKA, 
PROVZ TYPE REGIO, 
STRAS TYPE STRAS GP, 
ORTO1 ТУРЕ ORTOI1 GP, 
END OF TY BNKA. 


DATA :IT BDCDATA TYPE TABLE OF BDCDATA, 
ITAB TYPE TABLE OF TY BNKA, 
WA BDCDATA TYPE BDCDATA, 
WA TYPE TY BNKA, 
it bdcmsgcoll type table of bdcmsgcoll, 
wa bdcmsgcoll type bdcmsgcoll. 


CALL FUNCTION 'GUI UPLOAD' 


EXPORTING 

FILENAME = 'D:\data\fi0l.txt' 
HAS FIELD SEPARATOR = "Г 
TABLES 


DATA_TAB = ITAB 


CALL FUNCTION 'BDC OPEN GROUP' 


EXPORTING 
GROUP = 'SESSION 8:15' 
USER = SY-UNAME . 


LOOP AT ITAB INTO WA. 
PERFORM ВОС SCREEN PROGRAM USING 'SAPMFO2B' '0100'. 


PERFORM BDC_FNAME_FVAL USING 'BNKA-BANKS' WA-BANKS. 
PERFORM BDC FNAME FVAL USING 'BNKA-BANKL' WA-BANKL. 
PERFORM BDC FNAME FVAL USING 'BDC OKCODE' '/00'. 


PERFORM ВОС SCREEN PROGRAM USING 'SAPMFO2B' '0110'. 
PERFORM BDC FNAME FVAL USING 'BNKA-BANKA' WA-BANKA. 
PERFORM BDC FNAME FVAL USING 'BNKA-PROVZ' WA-PROVZ. 
PERFORM BDC FNAME FVAL USING 'BNKA-STRAS' WA-STRAS. 
PERFORM ВРС FNAME FVAL USING 'BNKA-ORTO1' WA-ORTO1. 
PERFORM ВОС FNAME FVAL USING 'BDC OKCODE' 'ZUPDA'. 


CALL FUNCTION 'BDC INSERT' 


EXPORTING 
TCODE = 'FIO1' 
TABLES 
DYNPROTAB = ІТ BDCDATA. 


REFRESH IT BDCDATA. 
ENDLOOP. 


CALL FUNCTION 'BDC CLOSE GROUP’. 
IF SY-SUBRC = 0. 

WRITE :/ 'SESSION CREATED SUCCESSFULLY'. 
ENDIF. 


INCLUDE ZDEMO ВОС FOR ҒІ01 INCLUDE. 


* Execute Тсоде - Ismw. 
e Write project , subproject and object name on the screen 
and execute it. 


[74 


LSM Workbench Бай Goto Extras Settings System Help 


Project peo — (Әртіс 
Subproject [2508 — (| sub project 
Object object 


E07) 800 09 visuinfoenpa |I NS | / 
distant] | O @ | h sepmmc - [Console R... |] Legacy System мі... (С BDC | 22) Program to make BDC... У untitled - Paint ПЕ ТЕ 7210m 


е Choose first step Maintain object Attributes and execute it. 


1 Maintain Object Attributes 02.11.2013, 17:57:11 h, SAPUSER 
2 Maintain Source Structures 

3 Maintain Source Fields 

4 Maintain Structure Relations 

5 Maintain Field Mapping and Conversion Rules 

6 Maintain Fixed Values, Translations, User-Defined Routines 

7 Specify Files 

8 Assign Files 

9 Read Data 

10 Display Read Data 

11 Convert Data 02.11.2013, 18:09:35 h, SAPUSER 
12 Display Converted Data 02.11.2013, 18:09:38 h, SAPUSER 
13 Create Batch Input Session 02.11.2013, 18:09:49 h, SAPUSER 
14 Run Batch Input Session 02.11.2013, 18:10:04 h, SAPUSER 
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« Choose batch input recording and enter its name, create if 
not exists. 


Save it and back. 

Choose second option Maintain Source Structure and 
execute it. 

Create a source structure now, then save and back. 


D Baa 
Source Structures Edit Goto Utilities System Help SAP4 
(ЕРІТЕ 


ИИ Та вое ато] 0000205:о000000 агаа 


ZPRO - 2508 - 208Ј object E 
Source Structures 
Ге? Create Source Structure 
Source Structure М 
Description 
[a] 
ты 


ШІ 


m———————————————————————X «| 
So шшр; 
Bstart| |G Ә | {у +арттс-[сопздевоо\...||{®15М Workbench: Cha.. 1] Program to make BDC fo... | BOSE ЕТИ 


• Choose third option Maintain Source Field and execute it. 
e Choose source and click on Tabe Maintenance (ctrl f9). 


= ESAP 


Source Fields Edit Goto Utilities System Help 


7“ „оба eee 2mm aeos ra oe 


LSM Workbench: Change Source Fields 


ZPRO - 2508 - 208Ј ob{Table Maintenance (Ctrl+F9) 


[^] 
Ч 
Source Fields 
La ZS0URCE _ source 
А 
Ч 


ШІ 


————————————————————————X | гг 
22 217100900 (9 | мешпоепра [м8 | 
Ф start| |0 2 | sapmme - [Console Rooth... ПЕ LSM Workbench: Cha... 4) Program to make BDC fo... | Case ЕШ 7:34 РМ 


e Write field name type length and description. Then save and 
back 


[= пае 
Source Fields Edit Goto System Help SAP — 


Bank Country 
Bank number 
Bank name 


07 с) воо @ visuinfoehp4 | INS | 


e Choose fourth option Maintain Structure Relation and 
execute it. 


Relationships Edit Goto Utilities System Help 
Jj еае SHE одао I AH от 


LSM Workbench: LSM Workbench: Change Structure Relationships 00 Structure Relationships 
> @ г Па 


ZPRO - 2508 - Z0BJ object [2] 
а 
Structure Relations 
а recording of 1101 <<<< ZSOURCE source 
Select Target Strucflure ZREC . 
E 
рт ________________________________ аа 
5 ЕВЕ ТЕЛЕ 
ЕСІ |G | n sapmme - [Console Root}... || 15м Workbench: Cha... 14) Program to make ВОС fo... | Case BE 7:38PM 


e Notice that the relationship is default as there is only one 
source target structure , save and back... 


e Choose 5" option Maintain Field Mapping and Conversion 
Rules , execute it. 

« Choose field from target click on Source Fields and double 
click onrespective field list and repeat same for all. 


ar Mapping Edit Goto Extras Utilities System Help JSAP- 
© 1 

LSM Workbench: Change Field Mapping and Conversion Rules 

Я [O Sour | fe (4 s E =] [58 


ZPRO - 2508 - ZUBJ object 


[4] 
> [zj 
Field Mapping and Rule 
are шарын Ж 
ар Bank Count 
Bank numbe 
Bank name 
[^] 
2 


(Јо шта — 811 01 «|| 
E67 (2) 800 09 мешпоепра [№] JA 


Фан) | (8 ӘӘ | h sapmme- [Console Root... [fS LSM Workbench: Cha. 21) Program to make ВОС fo... | IST I 743m 


[-4 


FieldMapping Edit Goto Extras Utilities System Нер 


о ан cog DHH HHS плот 

LSM Workbench: Change Field Mapping and Conversion Rules 
үй aa [| IE ӘЛЕ E] | Ga Position | 

ZPRO - 2508 - ziAssign Source Field (Ctrl+F2) 


Field Mapping and Rule % 
E ZREC recording of 1101 [7 


Fields 


Hi @ W Bank country key 

Source: ZSOURCE-BANKS (Bank Country) 
Rule : Transfer (MOVE) 

Сойе: ZREC-BANKS = ZSOURCE-BANKS. 


[^] 
М 
ак © Bank Keys 
Source: ZSOURCE-BANKL (Bank number) 
Rule : Transfer (MOVE) 
Сойе: ZREC-BANKL = ZSOURCE-BANKL. 
BANKA — — — МО 97 Name of bank 
[4] 
Ч 


Source: ZSOURCE-BANKA (Bank папе) 
Rule : Transfer (MOVE) 
Code: ZREC-BANKA = ZSOURCE-BANKA. 


[jiji JAN | 
D [ЕСТ (2) 800 04 | visuinfoenna |INS | |/ 


Ф start| | Ge | ^ sapmmc - [Console Боо8.... || fj LSM Workbench: Cha... WA Program to make ВОС fo... | [OAE 7аарм | 
SAVE and BACK... 


e 6" option Maintain Fixed Values, Translations, User-Defined Routines 
is optional. 

e Choose 7" option Specify Files execute it. 

e Choose Legacy Data and change it and add entry, provide 
file details. 


Ej Legacy Data _ Frontend 
Ге? File on Front End: Maintain Properties [ES] 


Enter(continue)... 


E Baa 
SpecifyFiles Edit Goto Utilities System Help SAP, 


a ін eee BB usse mom 


ZPRO - 2508 - 20В.) object [2] 
а 
Files 
Сл Legacyllpata On the PC (Frontend) 
E s DETAILS G: ASAPAFIO1.txt 
Data for One Source Structure (Table) 
Separator Tabulator 
Field Order Matches Source Structure Definition 
With Record End Indicator (Text File) 
Code Page ASCII 
Legacy Data On the R/3 server (application server) 
E Imported Data File for Imported Data (Application Server) 
Imported Data ZPRO_ZSUB_20BJ.1smw.read 
© Converted Data File for Converted Data (Application Server) 
Converted Data ZPRO_ZSUB_20BJ.1smw.cony 
Wildcard Value Value for Wildcard '*' in File Name 
[2] 
Я 


[ини «| | 
ET с) 800 09 мешпоепра [№] JA 


Ф start| её | 48) sapmme - [Console Root... IE LSM Workbench: Spec... 14) Program to make BDC fo... | Са) #9 BE 7:50PM 


e Save and back. 


e Choose 8" option Assign Files (to source structure), , exec 
it, this is default when there is only one source structure 
file... 


E Bae 
Assign Files Edit Goto Utilities System Help SAP — = ма 
go eoe GAB ятһа mm о : 


LSM Workbench: Assign Files (Chang 


Hafia ree ||53 Row 


ZPRO - 2508 - Assign File (Ctrl+F2) 


[2] 
а 
Source Structures and Files 
Е source 
FI801 DETAILS G:\SAP\FIO1.txt 
[a] 
Я 


ни «|» | 
2 > јест (2) 800 09 мешпоепра |iNS | |/ 


Ф start| lesg | ^f sapmmc - [Console Root... (Г LSM Workbench: Assi.. Wi) Program to make BDC fo... | 92 9 BE 7:53PM 
Save and back. 


e Choose 9% step Read Data ( from file to source structure), 
exec it 


6107 о) воо Pl|visunfoehp4 [iS | // 
Stc | Е: с - [Console R ІП skbench: Imp... |Б m to make B ЕГО | aK VES 75 | 


OAE zs 


e You can choose any range then exec it... 


E сан 
List Edit Goto System Help SAP, 2 


2 еее Dam eese oS 


LSM Workbench: Import Data For ZPRO, ZSUB, ZOBJ 


LSM Workbench: Import Data For 2РАО, 2508, 208Ј 


04.11.2013 - 19:55:21 


File(s) Read: B: ASAPAFIO1.txt 

File Written: ZPRO_ZSUB_Z0BJ.1smw.read 

Source Structure Read Written Not Written 
ZSÜURCE 3 3 8 


Transactions Read: 
Records Read: 
Transactions Written: 
Records Written: 


Www CO 


C7 2) воо Pl|visunfeehp4 [ins |. | 
Ф start| | @ К | if sapmmc - [Console Root}... || LSM Workbench: Imp... 181] Program to make BDC fo... | Са ји ш 7:55 РМ 


• Now , 10" step is Display Read Data(for verification - from 
source structure (.read file)). 
e Execute and display. 


1 Maintain Object Attributes 04.11.2013, 19:26:28 h, SAPUSER 
2 Maintain Source Structures 02.11.2013, 17:57:33 h, SAPUSER 
3 Maintain Source Fields 02.11.2013, 17:58:27 h, SAPUSER 
[c Display Read Data [Es] 17:58:36 h, SAPUSER 
Project [арво | project 18:02:01 h, SAPUSER 


Subproject [258 — | sub project [| o a me 1] 
Object [ В) омен 
E =e | 

| | 


[= 582 
Imported Data Edit Goto System Help ЗАР 


ZPRO_ZSUB_20BJ.1smw.read 


5 Struct. 


dE Е — 


Dnmmm————————— лд «| 
5 SE PA NGREPAK 
ЕДІ | B | sapmme - [Console Rooth... IE LSM Workbench: Imp... | Program to make BDC fo... | 0305) 99 ПИ 8:00PM 


e Click on any line for list displayed and make sure that data 
is properly displayed if not check the file and source 
structure. For e.g. 


[= ыа е 
Imported Data Edit Goto System Help SAPA SSi: 


о eoa вте Of 


LSM Workbench: Imported Data 


File ZPRO_ZSUB_Z0BJ.1smw.read 


Structure ZSOURCE 


leans | Bank Country] IN 
BANKL 818185 
ВАМКА Bank name [ВАК 810105 LTD 


D | ЕСТ (2) 800 | visumfoenpa |iNS | [7 
Ф start| Bg | ^£ sapmme - [Console Root... | [iE LSM Workbench: Imp... W) Program to make BDC fo... | ETT. 8:00РМ 


e Choose 11" step Convert Data (Source to target 
Structure) as per mapping define - from .read to .conv ... 
e Execute and then give parameters if needed... 
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List Edit Goto System Help 


2 1 "iH 660 BAR аппа пп OF 
LSM Workbench: Convert Data For ZPRO, ZSUB, ZOBJ 


LSM Workbench: Convert Data For ZPRO, 2508, 20В.) 


[a] 

| 

04.14.2013 - 20:05:18 EE 11.2013 - 20:05:18 

File Read: ZPRO_ZSUB_ZOBJ.1smw.read 

File Written: ZPRO_ZSUB_ZOBJ.1smw.cony 

Transactions Read: 

Records Read: 

Transactions Written: 

Records Written: 
[А] 
[©] 


D | ЕСТ (2) 800 P3] | visuinfoehp4 | INS 2 


Ф start| |0 2 | sapmme - [Console Rooth. || usm Workbench: Con... 4) Program to make BDC fo... | ETT. ПЕ 8:05 РМ 


соо CO CO 


e Choose 12" Display Converted Data and exec it. 
• |f not properly converted verify mapping and convert it 
again.(from target structure .conv). 


e Choose 13" Create batch Input Session exec it. 


Program Edit Goto System Нер 


LSM Workbench: Generate Batch Input Folder 


(т, 
File Name (with Path) 
Display Trans. per BI Folder 


Name of Batch Input Folder(s) 208Ј 
UserID SAPUSER 


[D Keep batch input folder(s)? 


ECT 800 Bl|visuinfoehp4 | NS |. |/ 


"LIEU 


Program to make ВОС fo... | 


CH m sum 


Execute this screen a dialog box displayed , on click ok , it 
redirects to step 14. 


[= Bae 
System Help SAP. — RENS 


[= Information 


BEC 2/800 Bl |visuingenpa [in | [7 
St g en ipmmc - [Console Root}... А7 _ W) Program to make BDC fo... (Pak D. = 8:131 


e Choose 14" Run Batch Input Session and then it redirects to 
session screen. 


Jg. eege nus Banas mm от 


SAPUSER 82.11.2013 18:09:47 /SAPDMC/SAP_L SAPUSER 
SAPUSER 02.11.2013 18:08:06 /SAPDMC/SAP L SAPUSER 


Sessions Found: 2 ЕМЕ 
92 1 session(s) and logis) deleted % D ЕС? (2) 800 visuinfoehp4 | INS 
A start| іне |% sapmmc - [Console Rost}... || Batch Input: Session... Wi) Program to make BDC fo... | Со) ж E 8:17PM 


You can process and analyse from here... 


